home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v10n07.arc / SPEEDSAV.BAS < prev    next >
BASIC Source File  |  1991-03-27  |  289b  |  5 lines
  1. DIM Array!(1 TO 10000)            'create a 40000 byte array
  2. DEF SEG = VARSEG(Array!(1))       'use the segment where the array starts
  3. BSAVE "savetest.dat", 0, 40000    'save 40000 bytes starting at address 0
  4. BLOAD "savetest.dat", 0           'now reload it again at the same address
  5.